home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / gemfsc18.lzh / AESSRC18.LZH / AESUTIL.S / RCVTOG.S < prev   
Text File  |  1992-03-15  |  711b  |  27 lines
  1. ;*************************************************************************
  2. ;* RCVTOG.S - Convert VRECT to GRECT.
  3. ;*************************************************************************
  4.  
  5. _rc_vtog::
  6.  
  7.           .cargs    #4,.pvrect.l,.pgrect.l
  8.           
  9.           move.l    .pvrect(sp),a0
  10.           move.l    .pgrect(sp),a1
  11.           move.l    a1,d0               ; return pgrect
  12.  
  13.           move.l    (a0),(a1)
  14.           
  15.           move.w    4(a0),d1
  16.           sub.w     (a0),d1
  17.           addq.w    #1,d1
  18.           move.w    d1,4(a1)
  19.           
  20.           move.w    6(a0),d1
  21.           sub.w     2(a0),d1
  22.           addq.w    #1,d1
  23.           move.w    d1,6(a1)
  24.           
  25.           rts
  26.  
  27.